home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / newapa / newapa.bst < prev    next >
Text File  |  1991-07-05  |  26KB  |  1,327 lines
  1. %$$$ newapa.bst $$$ --- June 13, 1991 (Version 2.0)
  2. %     - Version No. has not been kept, but let's say uh uh ... Version 2.0.
  3.  
  4. % REQUIRED is `newapa.sty' Version 2.0
  5. % 
  6. % Or alternatively required is a \LaTeX style file
  7. % or \TeX input file where
  8. % the following macros are defined:
  9. %  `\citestarts', `\citeends', `\betweenauthors'
  10. %
  11. % Also the \LaTeX style file or \TeX input file
  12. % should define macros line these:
  13. %
  14. %     \let\@internalcite\cite
  15. %     \def\fullcite{\def\citeauthoryear##1##2##3{##1, ##3}\@internalcite}
  16. %     \def\fullciteA{\def\citeauthoryear##1##2##3{##1}\@internalcite}
  17. %     \def\shortcite{\def\citeauthoryear##1##2##3{##2, ##3}\@internalcite}
  18. %     \def\shortciteA{\def\citeauthoryear##1##2##3{##2}\@internalcite}
  19. %     \def\citeyear{\def\citeauthoryear##1##2##3{##3}\@internalcite}
  20. %
  21.  
  22. % BibTeX `newapa' style file for BibTeX version 0.99c, LaTeX version 2.09
  23. % Place it in a file called newapa.bst in the BibTeX search path.  
  24. %(Placing it in the same directory as the LaTeX document should also work.)
  25. % Support for named citations is provided by named.sty
  26.  
  27. % This version was made by modifying the master file made by
  28. % Oren Patashnik (PATASHNIK@SCORE.STANFORD.EDU), and the 'named' BibTeX
  29. % style of Peter F. Patel-Schneider.
  30.  
  31. % Copyright (C) 1985, all rights reserved.
  32. % Modifications Copyright 1989, 1990, Stephen N. Spencer
  33. % Copying of this file is authorized only if either
  34. % (1) you make absolutely no changes to your copy, including name, or
  35. % (2) if you do make changes, you name it something other than
  36. % btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
  37. % This restriction helps ensure that all standard styles are identical.
  38.  
  39. % There are undoubtably bugs in this style.  If you make bug fixes,
  40. % improvements, etc.  please let me know.  My e-mail address is:
  41. %    spencer@heinlein.cgrg.ohio.state.edu
  42. %
  43.  
  44. %   Reference list ordering: alphabetical by author or whatever passes
  45. %    for author in the absence of one.
  46. %
  47. % This BibTeX style has support for abbreviated author lists and for
  48. %    year-only citations.  This is done by having the citations
  49. %    actually look like
  50. %
  51. % The LaTeX style has to have the following (or similar)
  52. %
  53.  
  54. ENTRY
  55.   { address
  56.     author
  57.     booktitle
  58.     chapter
  59.     edition
  60.     editor
  61.     howpublished
  62.     institution
  63.     journal
  64.     key
  65. %   month
  66.     note
  67.     number
  68.     organization
  69.     pages
  70.     publisher
  71.     school
  72.     series
  73.     title
  74.     type
  75.     volume
  76.     year
  77.   }
  78.   {}
  79.   { label extra.label sort.label }
  80.  
  81. INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  82.  
  83. FUNCTION {init.state.consts}
  84. { #0 'before.all :=
  85.   #1 'mid.sentence :=
  86.   #2 'after.sentence :=
  87.   #3 'after.block :=
  88. }
  89.  
  90. STRINGS { s t u }
  91.  
  92. FUNCTION {output.nonnull}
  93. { 's :=
  94.   output.state mid.sentence =
  95.     { ", " * write$ }
  96.     { output.state after.block =
  97.     { add.period$ write$
  98.       newline$
  99.       "\newblock " write$
  100.     }
  101.     { output.state before.all =
  102.         'write$
  103.         { add.period$ " " * write$ }
  104.       if$
  105.     }
  106.       if$
  107.       mid.sentence 'output.state :=
  108.     }
  109.   if$
  110.   s
  111. }
  112.  
  113. FUNCTION {output.nonnull.colon}
  114. { 's :=
  115.   output.state mid.sentence =
  116.     { ": " * write$ }
  117.     { output.state after.block =
  118.     { add.period$ write$
  119.       newline$
  120.       "\newblock " write$
  121.     }
  122.     { output.state before.all =
  123.         'write$
  124.         { add.period$ " " * write$ }
  125.       if$
  126.     }
  127.       if$
  128.       mid.sentence 'output.state :=
  129.     }
  130.   if$
  131.   s
  132. }
  133.  
  134. FUNCTION {output}
  135. { duplicate$ empty$
  136.     'pop$
  137.     'output.nonnull
  138.   if$
  139. }
  140.  
  141. FUNCTION {output.check}
  142. { 't :=
  143.   duplicate$ empty$
  144.     { pop$ "empty " t * " in " * cite$ * warning$ }
  145.     'output.nonnull
  146.   if$
  147. }
  148.  
  149. FUNCTION {output.check.colon}
  150. { 't :=
  151.   duplicate$ empty$
  152.     { pop$ "empty " t * " in " * cite$ * warning$ }
  153.     'output.nonnull.colon
  154.   if$
  155. }
  156.  
  157. FUNCTION {output.year.check}
  158. { year empty$
  159.      { "empty year in " cite$ * warning$ }
  160.      { write$
  161.         " \citestarts" year * extra.label * "\citeends" *
  162.         mid.sentence 'output.state :=
  163.      }
  164.   if$
  165. }
  166.  
  167. FUNCTION {output.bibitem}
  168. { newline$
  169.  
  170.   "\bibitem[" write$
  171.   label write$
  172.   "]{" write$
  173.  
  174.   cite$ write$
  175.   "}" write$
  176.   newline$
  177.   ""
  178.   before.all 'output.state :=
  179. }
  180.  
  181. FUNCTION {fin.entry}
  182. { add.period$
  183.   write$
  184.   newline$
  185. }
  186.  
  187. FUNCTION {new.block}
  188. { output.state before.all =
  189.     'skip$
  190.     { after.block 'output.state := }
  191.   if$
  192. }
  193.  
  194. FUNCTION {new.sentence}
  195. { output.state after.block =
  196.     'skip$
  197.     { output.state before.all =
  198.     'skip$
  199.     { after.sentence 'output.state := }
  200.       if$
  201.     }
  202.   if$
  203. }
  204.  
  205. FUNCTION {not}
  206. {   { #0 }
  207.     { #1 }
  208.   if$
  209. }
  210.  
  211. FUNCTION {and}
  212. {   'skip$
  213.     { pop$ #0 }
  214.   if$
  215. }
  216.  
  217. FUNCTION {or}
  218. {   { pop$ #1 }
  219.     'skip$
  220.   if$
  221. }
  222.  
  223. FUNCTION {new.block.checka}
  224. { empty$
  225.     'skip$
  226.     'new.block
  227.   if$
  228. }
  229.  
  230. FUNCTION {new.block.checkb}
  231. { empty$
  232.   swap$ empty$
  233.   and
  234.     'skip$
  235.     'new.block
  236.   if$
  237. }
  238.  
  239. FUNCTION {new.sentence.checka}
  240. { empty$
  241.     'skip$
  242.     'new.sentence
  243.   if$
  244. }
  245.  
  246. FUNCTION {new.sentence.checkb}
  247. { empty$
  248.   swap$ empty$
  249.   and
  250.     'skip$
  251.     'new.sentence
  252.   if$
  253. }
  254.  
  255. FUNCTION {field.or.null}
  256. { duplicate$ empty$
  257.     { pop$ "" }
  258.     'skip$
  259.   if$
  260. }
  261.  
  262. FUNCTION {emphasize}
  263. { duplicate$ empty$
  264.     { pop$ "" }
  265.     { "{\em " swap$ * "}" * }
  266.   if$
  267. }
  268.  
  269. FUNCTION {emphasize.space}
  270. { duplicate$ empty$
  271.     { pop$ "" }
  272.     { "{\em " swap$ * "\/}" * }
  273.   if$
  274. }
  275.  
  276. INTEGERS { nameptr namesleft numnames }
  277.  
  278. FUNCTION {format.names}
  279. { 's :=
  280.   #1 'nameptr :=        % nameptr = 1;
  281.   s num.names$ 'numnames :=    % numnames = num.name$(s);
  282.   numnames 'namesleft :=
  283.     { namesleft #0 > }
  284.  
  285.     { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't :=
  286.  
  287.       nameptr #1 >
  288.         { namesleft #1 >
  289.               { ", " * t * }
  290.                { numnames #2 >
  291.                     { "," * }
  292.                     'skip$
  293.                   if$
  294.                   t "others" =
  295.                         { " et~al." * }
  296. %                        { " and " * t * }
  297.                         { " \betweenauthors{} " * t * }
  298.                       if$
  299.                 }
  300.                if$
  301.              }
  302.             't
  303.         if$
  304.         nameptr #1 + 'nameptr :=          % nameptr += 1;
  305.         namesleft #1 - 'namesleft :=      % namesleft =- 1;
  306.     }
  307.   while$
  308. }
  309.  
  310. FUNCTION {format.authors}
  311. { author empty$
  312.     { "" }
  313.     { author format.names }
  314.   if$
  315. }
  316.  
  317. FUNCTION {format.key}
  318. { empty$
  319.     { key field.or.null }
  320.     { "" }
  321.   if$
  322. }
  323.  
  324. FUNCTION {format.editors}
  325. { editor empty$
  326.     { "" }
  327.     { editor format.names
  328.       editor num.names$ #1 >
  329.     { " (Eds.)" * }
  330.     { " (Ed.)" * }
  331.       if$
  332.     }
  333.   if$
  334. }
  335.  
  336. FUNCTION {format.editors.dot}
  337. { editor empty$
  338.     { "" }
  339.     { editor format.names
  340.       editor num.names$ #1 >
  341.     { " (Eds.)." * }
  342.     { " (Ed.)." * }
  343.       if$
  344.     }
  345.   if$
  346. }
  347.  
  348. FUNCTION {format.title}
  349. { title empty$
  350.     { "" }
  351.     { title "t" change.case$ }
  352.   if$
  353. }
  354.  
  355. % Note that the APA style requres case changes
  356. % in article titles. The following does not
  357. % change cases. If you perfer it, uncomment the
  358. % following and comment out the above.
  359.  
  360. %FUNCTION {format.title}
  361. %{ title empty$
  362. %    { "" }
  363. %    { title }
  364. %  if$
  365. %}
  366.  
  367. FUNCTION {n.dashify}
  368. { 't :=
  369.   ""
  370.     { t empty$ not }
  371.     { t #1 #1 substring$ "-" =
  372.     { t #1 #2 substring$ "--" = not
  373.         { "--" *
  374.           t #2 global.max$ substring$ 't :=
  375.         }
  376.         {   { t #1 #1 substring$ "-" = }
  377.         { "-" *
  378.           t #2 global.max$ substring$ 't :=
  379.         }
  380.           while$
  381.         }
  382.       if$
  383.     }
  384.     { t #1 #1 substring$ *
  385.       t #2 global.max$ substring$ 't :=
  386.     }
  387.       if$
  388.     }
  389.   while$
  390. }
  391.  
  392. %FUNCTION {format.btitle}
  393. %{ title emphasize
  394. %}
  395.  
  396. FUNCTION {format.btitle}
  397. { edition empty$
  398.   { title emphasize }
  399.   { title empty$
  400.     { title emphasize }
  401.     { "{\em " title * "\/} (" * edition * " ed.)" * "." * }
  402.     if$
  403.   }
  404.   if$
  405. }
  406.  
  407. FUNCTION {format.emphasize.booktitle}
  408. { edition empty$
  409.   { booktitle emphasize }
  410.   { booktitle empty$
  411.     { booktitle emphasize }
  412.     { "{\em " booktitle * "\/} (" * edition * " ed.)" * "." * }
  413.     if$
  414.   }
  415.   if$
  416. }
  417.  
  418. FUNCTION {tie.or.space.connect}
  419. { duplicate$ text.length$ #3 <
  420.     { "~" }
  421.     { " " }
  422.   if$
  423.   swap$ * *
  424. }
  425.  
  426. FUNCTION {either.or.check}
  427. { empty$
  428.     'pop$
  429.     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  430.   if$
  431. }
  432.  
  433. FUNCTION {format.bvolume}
  434. { volume empty$
  435.     { "" }
  436.     { "volume" volume tie.or.space.connect
  437.       series empty$
  438.     'skip$
  439.     { " of " * series emphasize * }
  440.       if$
  441.       "volume and number" number either.or.check
  442.     }
  443.   if$
  444. }
  445.  
  446. FUNCTION {format.number.series}
  447. { volume empty$
  448.     { number empty$
  449.     { series field.or.null }
  450.     { output.state mid.sentence =
  451.         { "number" }
  452.         { "Number" }
  453.       if$
  454.       number tie.or.space.connect
  455.       series empty$
  456.         { "there's a number but no series in " cite$ * warning$ }
  457.         { " in " * series * }
  458.       if$
  459.     }
  460.       if$
  461.     }
  462.     { "" }
  463.   if$
  464. }
  465.  
  466. FUNCTION {format.edition}
  467. { edition empty$
  468.     { "" }
  469.     { output.state mid.sentence =
  470.     { edition "l" change.case$ " edition" * }
  471.     { edition "t" change.case$ " edition" * }
  472.       if$
  473.     }
  474.   if$
  475. }
  476.  
  477. INTEGERS { multiresult }
  478.  
  479. FUNCTION {multi.page.check}
  480. { 't :=
  481.   #0 'multiresult :=
  482.     { multiresult not
  483.       t empty$ not
  484.       and
  485.     }
  486.     { t #1 #1 substring$
  487.       duplicate$ "-" =
  488.       swap$ duplicate$ "," =
  489.       swap$ "+" =
  490.       or or
  491.     { #1 'multiresult := }
  492.     { t #2 global.max$ substring$ 't := }
  493.       if$
  494.     }
  495.   while$
  496.   multiresult
  497. }
  498.  
  499. FUNCTION {format.pages}
  500. { pages empty$
  501.     { "" }
  502.     { pages multi.page.check
  503.     { "pages" pages n.dashify tie.or.space.connect }
  504.     { "page" pages tie.or.space.connect }
  505.       if$
  506.     }
  507.   if$
  508. }
  509.  
  510. %FUNCTION {format.vol.num.pages}
  511. %{ volume field.or.null
  512. %  number empty$
  513. %    'skip$
  514. %    { "(" number * ")" * *
  515. %      volume empty$
  516. %    { "there's a number but no volume in " cite$ * warning$ }
  517. %    'skip$
  518. %      if$
  519. %    }
  520. %  if$
  521. %  pages empty$
  522. %    'skip$
  523. %    { duplicate$ empty$
  524. %    { pop$ format.pages }
  525. %    { ":" * pages n.dashify * }
  526. %      if$
  527. %    }
  528. %  if$
  529. %}
  530.  
  531. % By Young
  532. FUNCTION {format.vol.num.pages}
  533. { number empty$
  534.     { volume empty$
  535.        'skip$
  536.        { "{\em " volume * "}" * }
  537.       if$
  538.     }
  539.     { volume emphasize.space
  540.       volume empty$
  541.        {"there's a number but no volume in " cite$ * warning$ }
  542.        { "(" number * ")" * * }
  543.       if$
  544.     }
  545.   if$
  546.   pages empty$
  547.     'skip$
  548.     { duplicate$ empty$
  549.       { pop$ format.pages }
  550.       { ", " * pages n.dashify * }
  551.       if$
  552.     }
  553.   if$
  554. }
  555.  
  556. FUNCTION {format.chapter.pages}
  557. { chapter empty$
  558.     'format.pages
  559.     { type empty$
  560.     { "chapter" }
  561.     { type "l" change.case$ }
  562.       if$
  563.       chapter tie.or.space.connect
  564.       pages empty$
  565.     'skip$
  566.     { ", " * format.pages * }
  567.       if$
  568.     }
  569.   if$
  570. }
  571.  
  572. FUNCTION {format.in.ed.booktitle}
  573. { booktitle empty$
  574.     { "" }
  575.     { editor empty$
  576.     { "In " format.emphasize.booktitle * }
  577.     { "In " format.editors * ", " * format.emphasize.booktitle * }
  578.       if$
  579.     }
  580.   if$
  581. }
  582.  
  583. FUNCTION {format.thesis.type}
  584. { type empty$
  585.     'skip$
  586.     { pop$
  587.       type "t" change.case$
  588.     }
  589.   if$
  590. }
  591.  
  592. FUNCTION {format.tr.number}
  593. { type empty$
  594.     { "Technical Report" }
  595.     'type
  596.   if$
  597.   number empty$
  598.     { "t" change.case$ }
  599.     { number tie.or.space.connect }
  600.   if$
  601. }
  602.  
  603. FUNCTION {format.article.crossref}
  604. { "In"
  605.   "\cite{" * crossref * "}" *
  606. }
  607.  
  608. FUNCTION {format.crossref.editor}
  609. { editor #1 "{vv~}{ll}" format.name$
  610.   editor num.names$ duplicate$
  611.   #2 >
  612.     { pop$ " et~al." * }
  613.     { #2 <
  614.     'skip$
  615.     { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  616.         { " et~al." * }
  617.         { " and " * editor #2 "{vv~}{ll}" format.name$ * }
  618.       if$
  619.     }
  620.       if$
  621.     }
  622.   if$
  623. }
  624.  
  625. FUNCTION {format.book.crossref}
  626. { volume empty$
  627.     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
  628.       "In "
  629.     }
  630.     { "Volume" volume tie.or.space.connect
  631.       " of " *
  632.     }
  633.   if$
  634.   editor empty$
  635.   editor field.or.null author field.or.null =
  636.   or
  637.     { key empty$
  638.     { series empty$
  639.         { "need editor, key, or series for " cite$ * " to crossref " *
  640.           crossref * warning$
  641.           "" *
  642.         }
  643.         { "{\em " * series * "\/}" * }
  644.       if$
  645.     }
  646.     { key * }
  647.       if$
  648.     }
  649.     { format.crossref.editor * }
  650.   if$
  651.   " \cite{" * crossref * "}" *
  652. }
  653.  
  654. FUNCTION {format.incoll.inproc.crossref}
  655. { "In"
  656.   " \cite{" * crossref * "}" *
  657. }
  658.  
  659. FUNCTION {article}
  660. { output.bibitem
  661.   format.authors "author" output.check
  662.   author format.key output          % added
  663.   output.year.check                 % added
  664.   new.block
  665.   format.title "title" output.check
  666.   new.block
  667.   crossref missing$
  668.     { journal emphasize "journal" output.check
  669.       format.vol.num.pages output
  670.     }
  671.     { format.article.crossref output.nonnull
  672.       format.pages output
  673.     }
  674.   if$
  675.   new.block
  676.   note output
  677.   fin.entry
  678. }
  679.  
  680. FUNCTION {book}
  681. { output.bibitem
  682.   author empty$
  683.     { format.editors.dot "author and editor" output.check }
  684.     { format.authors output.nonnull
  685.       crossref missing$
  686.     { "author and editor" editor either.or.check }
  687.     'skip$
  688.       if$
  689.     }
  690.   if$
  691.   output.year.check       % added
  692.   new.block
  693.   format.btitle "title" output.check
  694.   crossref missing$
  695.     { format.bvolume output
  696.       new.block
  697.       format.number.series output
  698.       new.sentence
  699.       address output
  700.       publisher "publisher" output.check.colon
  701.     }
  702.     { new.block
  703.       format.book.crossref output.nonnull
  704.     }
  705.   if$
  706. %  format.edition output
  707.   new.block
  708.   note output
  709.   fin.entry
  710. }
  711.  
  712. FUNCTION {booklet}
  713. { output.bibitem
  714.   format.authors output
  715.   author format.key output          % added
  716.   output.year.check                 % added
  717.   new.block
  718.   format.title "title" output.check
  719.   new.block
  720.   howpublished output
  721.   address output
  722.   new.block
  723.   note output
  724.   fin.entry
  725. }
  726.  
  727. FUNCTION {inbook}
  728. { output.bibitem
  729.   author empty$
  730.     { format.editors.dot "author and editor" output.check }
  731.     { format.authors output.nonnull
  732.       crossref missing$
  733.     { "author and editor" editor either.or.check }
  734.     'skip$
  735.       if$
  736.     }
  737.   if$
  738.   output.year.check                 % added
  739.   new.block
  740.   format.btitle "title" output.check
  741.   crossref missing$
  742.     { format.bvolume output
  743.       format.chapter.pages "chapter and pages" output.check
  744.       new.block
  745.       format.number.series output
  746.       new.sentence
  747.       address output
  748.       publisher "publisher" output.check.colon
  749.     }
  750.     { format.chapter.pages "chapter and pages" output.check
  751.       new.block
  752.       format.book.crossref output.nonnull
  753.     }
  754.   if$
  755. %  format.edition output
  756.   new.block
  757.   note output
  758.   fin.entry
  759. }
  760.  
  761. FUNCTION {incollection}
  762. { output.bibitem
  763.   format.authors "author" output.check
  764.   author format.key output       % added
  765.   output.year.check              % added
  766.   new.block
  767.   format.title "title" output.check
  768.   new.block
  769.   crossref missing$
  770.     { format.in.ed.booktitle "booktitle" output.check
  771.       format.bvolume output
  772.       format.number.series output
  773.       format.chapter.pages output
  774.       new.sentence
  775.       address output
  776.       publisher "publisher" output.check.colon
  777. %      format.edition output
  778.     }
  779.     { format.incoll.inproc.crossref output.nonnull
  780.       format.chapter.pages output
  781.     }
  782.   if$
  783.   new.block
  784.   note output
  785.   fin.entry
  786. }
  787.  
  788. FUNCTION {inproceedings}
  789. { output.bibitem
  790.   format.authors "author" output.check
  791.   author format.key output            % added
  792.   output.year.check                   % added
  793.   new.block
  794.   format.title "title" output.check
  795.   new.block
  796.   crossref missing$
  797.     { format.in.ed.booktitle "booktitle" output.check
  798.       format.bvolume output
  799.       format.number.series output
  800.       format.pages output
  801.       address output
  802.         new.sentence
  803.        organization output
  804.        publisher output
  805.      }
  806.     { format.incoll.inproc.crossref output.nonnull
  807.       format.pages output
  808.     }
  809.   if$
  810.   new.block
  811.   note output
  812.   fin.entry
  813. }
  814.  
  815. FUNCTION {conference} { inproceedings }
  816.  
  817. FUNCTION {manual}
  818. { output.bibitem
  819.   format.authors output
  820.   author format.key output          % added
  821.   output.year.check                 % added
  822.   new.block
  823.   format.btitle "title" output.check
  824.   organization address new.block.checkb
  825.   organization output
  826.   address output
  827. %  format.edition output
  828.   new.block
  829.   note output
  830.   fin.entry
  831. }
  832.  
  833. FUNCTION {mastersthesis}
  834. { output.bibitem
  835.   format.authors "author" output.check
  836.   author format.key output          % added
  837.   output.year.check                 % added
  838.   new.block
  839.   format.title "title" output.check
  840.   new.block
  841.   "Master's thesis" format.thesis.type output.nonnull
  842.   school "school" output.check
  843.   address output
  844.   new.block
  845.   note output
  846.   fin.entry
  847. }
  848.  
  849. FUNCTION {misc}
  850. { output.bibitem
  851.   format.authors output
  852.   author format.key output            % added
  853.   output.year.check                   % added
  854.   title howpublished new.block.checkb
  855.   format.title output
  856.   new.block
  857.   howpublished output
  858.   new.block
  859.   note output
  860.   fin.entry
  861. }
  862.  
  863. FUNCTION {phdthesis}
  864. { output.bibitem
  865.   format.authors "author" output.check
  866.   author format.key output            % added
  867.   output.year.check                   % added
  868.   new.block
  869.   format.btitle "title" output.check
  870.   new.block
  871.   "PhD thesis" format.thesis.type output.nonnull
  872.   school "school" output.check
  873.   address output
  874.   new.block
  875.   note output
  876.   fin.entry
  877. }
  878.  
  879. FUNCTION {proceedings}
  880. { output.bibitem
  881.   editor empty$
  882.     { organization output }
  883.     { format.editors.dot output.nonnull }
  884.   if$
  885.   author format.key output             % added
  886.   output.year.check                    % added
  887.   new.block
  888.   format.btitle "title" output.check
  889.   format.bvolume output
  890.   format.number.series output
  891.   address output
  892.   new.sentence
  893.   organization output
  894.   publisher output
  895.   new.block
  896.   note output
  897.   fin.entry
  898. }
  899.  
  900. FUNCTION {techreport}
  901. { output.bibitem
  902.   format.authors "author" output.check
  903.   author format.key output             % added
  904.   output.year.check                    % added
  905.   new.block
  906.   format.title "title" output.check
  907.   new.block
  908.   format.tr.number output.nonnull
  909.   institution "institution" output.check
  910.   address output
  911.   new.block
  912.   note output
  913.   fin.entry
  914. }
  915.  
  916. FUNCTION {unpublished}
  917. { output.bibitem
  918.   format.authors "author" output.check
  919.   author format.key output              % added
  920.   output.year.check                      % added
  921.   new.block
  922.   format.title "title" output.check
  923.   new.block
  924.   note "note" output.check
  925.   fin.entry
  926. }
  927.  
  928. FUNCTION {default.type} { misc }
  929.  
  930. MACRO {jan} {"January"}
  931.  
  932. MACRO {feb} {"February"}
  933.  
  934. MACRO {mar} {"March"}
  935.  
  936. MACRO {apr} {"April"}
  937.  
  938. MACRO {may} {"May"}
  939.  
  940. MACRO {jun} {"June"}
  941.  
  942. MACRO {jul} {"July"}
  943.  
  944. MACRO {aug} {"August"}
  945.  
  946. MACRO {sep} {"September"}
  947.  
  948. MACRO {oct} {"October"}
  949.  
  950. MACRO {nov} {"November"}
  951.  
  952. MACRO {dec} {"December"}
  953.  
  954. MACRO {acmcs} {"ACM Computing Surveys"}
  955.  
  956. MACRO {acta} {"Acta Informatica"}
  957.  
  958. MACRO {ai} {"Artificial Intelligence"}
  959.  
  960. MACRO {cacm} {"Communications of the ACM"}
  961.  
  962. MACRO {ibmjrd} {"IBM Journal of Research and Development"}
  963.  
  964. MACRO {ibmsj} {"IBM Systems Journal"}
  965.  
  966. MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
  967.  
  968. MACRO {ieeetc} {"IEEE Transactions on Computers"}
  969.  
  970. MACRO {ieeetcad}
  971.  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
  972.  
  973. MACRO {ipl} {"Information Processing Letters"}
  974.  
  975. MACRO {jacm} {"Journal of the ACM"}
  976.  
  977. MACRO {jcss} {"Journal of Computer and System Sciences"}
  978.  
  979. MACRO {scp} {"Science of Computer Programming"}
  980.  
  981. MACRO {sicomp} {"SIAM Journal on Computing"}
  982.  
  983. MACRO {tocs} {"ACM Transactions on Computer Systems"}
  984.  
  985. MACRO {tods} {"ACM Transactions on Database Systems"}
  986.  
  987. MACRO {tog} {"ACM Transactions on Graphics"}
  988.  
  989. MACRO {toms} {"ACM Transactions on Mathematical Software"}
  990.  
  991. MACRO {toois} {"ACM Transactions on Office Information Systems"}
  992.  
  993. MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
  994.  
  995. MACRO {tcs} {"Theoretical Computer Science"}
  996.  
  997. READ
  998.  
  999. FUNCTION {sortify}
  1000. { purify$
  1001.   "l" change.case$
  1002. }
  1003.  
  1004. INTEGERS { len }
  1005.  
  1006. FUNCTION {chop.word}
  1007. { 's :=
  1008.   'len :=
  1009.   s #1 len substring$ =
  1010.     { s len #1 + global.max$ substring$ }
  1011.     's
  1012.   if$
  1013. }
  1014.  
  1015. INTEGERS { fullptr numfull fullsleft }
  1016.  
  1017. STRINGS { u1 u2 }
  1018.  
  1019. FUNCTION {my.full.label}
  1020. { 
  1021. % Initialize 'u1','u2','s'.
  1022.   "" 'u1 :=                                       
  1023.   "" 'u2 :=                     
  1024.   's :=                      
  1025.  
  1026. % Initialize 'fullptr','numfull','fullsleft'.
  1027.   #1 'fullptr :=                         
  1028.   s num.names$ 'numfull :=   
  1029.   numfull 'fullsleft :=          
  1030.  
  1031. % enter the while loop which generates the first-citation information.
  1032. % while we have names left, 
  1033. %     format the next name
  1034. %   if this is the next-to-last name, tack the ampersand on the end
  1035. %   else if this isn't the last name, tack the comma on the end.
  1036. %   concatenate the next name onto the first-citation string.
  1037. %   update the counters.
  1038.  
  1039.   { fullsleft #0 > }
  1040.   { s fullptr "{vv~}{ll}" format.name$ 'u1 :=  
  1041.      fullsleft #2 =
  1042.        { u1 " \betweenauthors{} " * 'u1 := }
  1043.       { fullsleft #2 > 
  1044.            { u1 ", " * 'u1 := }
  1045.            'skip$
  1046.          if$
  1047.         }
  1048.     if$
  1049.      u2 u1 * 'u2 :=
  1050.      fullptr #1 + 'fullptr :=         
  1051.      fullsleft #1 - 'fullsleft :=  
  1052.   }
  1053.   while$
  1054.  
  1055. % push 'u2' onto the stack -- our first-citation information.
  1056.   u2        
  1057. }
  1058.  
  1059. FUNCTION {format.lab.names}
  1060. { 's :=                             
  1061.   s #1 "{vv~}{ll}" format.name$        
  1062.   s num.names$ duplicate$
  1063.   #2 >                                
  1064.      { pop$ " et~al." * }            
  1065.      { #2 <
  1066.           'skip$
  1067.           { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  1068.                 { "et~al. " * }
  1069. %               { " and " * s #2 "{vv~}{ll}" format.name$ * }
  1070.                 { " \betweenauthors{} " * s #2 "{vv~}{ll}" format.name$ * }
  1071.              if$
  1072.             }
  1073.        if$
  1074.      }
  1075.   if$
  1076. }
  1077.  
  1078. FUNCTION {author.key.label}
  1079. { author empty$
  1080.     { key empty$
  1081.           { cite$ #1 #3 substring$ }
  1082.          'key
  1083.       if$
  1084.     }
  1085.     { author format.lab.names }
  1086.   if$
  1087. }
  1088.  
  1089. FUNCTION {editor.key.label}
  1090. { editor empty$
  1091.     { key empty$
  1092.           { cite$ #1 #3 substring$ }
  1093.           'key
  1094.         if$
  1095.      }
  1096.      { editor format.lab.names }
  1097.   if$
  1098. }
  1099.  
  1100. FUNCTION {author.editor.key.label}
  1101. { author empty$
  1102.     { editor empty$
  1103.           { key empty$
  1104.                { cite$ #1 #3 substring$ }
  1105.              'key
  1106.            if$
  1107.          }
  1108.           { editor format.lab.names }
  1109.       if$
  1110.     }
  1111.     { author format.lab.names }
  1112.   if$
  1113. }
  1114.  
  1115. FUNCTION {calc.label}
  1116. { type$ "book" =
  1117.   type$ "inbook" =
  1118.   or
  1119.     'author.editor.key.label
  1120.     { type$ "proceedings" =
  1121.           'editor.key.label
  1122.           'author.key.label
  1123.         if$
  1124.     }
  1125.   if$
  1126.   duplicate$    
  1127.  
  1128.   author my.full.label  % generate the first-citation information.
  1129.  
  1130.   "\protect\citeauthoryear{" swap$ * "}{" * swap$ * "}{" *
  1131.   year field.or.null purify$ #-1 #4 substring$ *  
  1132.   'label :=
  1133.   year field.or.null purify$ #-1 #4 substring$ *
  1134.   sortify 'sort.label :=
  1135. }
  1136.  
  1137. FUNCTION {sort.format.names}
  1138. { 's :=
  1139.   #1 'nameptr :=
  1140.   ""
  1141.   s num.names$ 'numnames :=
  1142.   numnames 'namesleft :=
  1143.     { namesleft #0 > }
  1144.     { nameptr #1 >
  1145.           { "   " * }
  1146.          'skip$
  1147.       if$
  1148.       s nameptr "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}" format.name$ 't :=
  1149.       nameptr numnames = t "others" = and
  1150.           { "et al" * }
  1151.           { t sortify * }
  1152.       if$
  1153.       nameptr #1 + 'nameptr :=
  1154.       namesleft #1 - 'namesleft :=
  1155.     }
  1156.   while$
  1157. }
  1158.  
  1159. FUNCTION {sort.format.title}
  1160. { 't :=
  1161.   "A " #2
  1162.     "An " #3
  1163.       "The " #4 t chop.word
  1164.     chop.word
  1165.   chop.word
  1166.   sortify
  1167.   #1 global.max$ substring$
  1168. }
  1169.  
  1170. FUNCTION {author.sort}
  1171. { author empty$
  1172.     { key empty$
  1173.           { "to sort, need author or key in " cite$ * warning$
  1174.               ""
  1175.          }
  1176.          { key sortify }
  1177.       if$
  1178.     }
  1179.     { author sort.format.names }
  1180.   if$
  1181. }
  1182.  
  1183. FUNCTION {editor.sort}
  1184. { editor empty$
  1185.     { key empty$
  1186.          { "to sort, need editor or key in " cite$ * warning$
  1187.            ""
  1188.          }
  1189.          { key sortify }
  1190.       if$
  1191.     }
  1192.     { editor sort.format.names }
  1193.   if$
  1194. }
  1195.  
  1196. FUNCTION {author.editor.sort}
  1197. { author empty$
  1198.     { editor empty$
  1199.          { key empty$
  1200.              { "to sort, need author, editor, or key in " cite$ * warning$
  1201.                ""
  1202.              }
  1203.              { key sortify }
  1204.            if$
  1205.          }
  1206.          { editor sort.format.names }
  1207.       if$
  1208.    }
  1209.    { author sort.format.names }
  1210.   if$
  1211. }
  1212.  
  1213. FUNCTION {presort}
  1214. { calc.label
  1215.   label sortify
  1216.   "    "
  1217.   *
  1218.   type$ "book" =
  1219.   type$ "inbook" =
  1220.   or
  1221.     'author.editor.sort
  1222.     { type$ "proceedings" =
  1223.           'editor.sort
  1224.           'author.sort
  1225.       if$
  1226.     }
  1227.   if$
  1228.   #1 entry.max$ substring$        % added for newapa
  1229.   'sort.label :=                  % added for newapa
  1230.   sort.label                      % added for newapa
  1231.   *
  1232.   "    "
  1233.   *
  1234.   title field.or.null
  1235.   sort.format.title
  1236.   *
  1237.   #1 entry.max$ substring$
  1238.   'sort.key$ :=
  1239. }
  1240.  
  1241. ITERATE {presort}
  1242.  
  1243. SORT             % by label, sort.label, title --- for final label calculation
  1244.  
  1245. STRINGS { last.label next.extra }
  1246.  
  1247. INTEGERS { last.extra.num }
  1248.  
  1249. FUNCTION {initialize.extra.label.stuff}
  1250. { #0 int.to.chr$ 'last.label :=
  1251.   "" 'next.extra :=
  1252.   #0 'last.extra.num :=
  1253. }
  1254.  
  1255. FUNCTION {forward.pass}
  1256. { last.label label =
  1257.      { last.extra.num #1 + 'last.extra.num :=
  1258.        last.extra.num int.to.chr$ 'extra.label :=
  1259.      }
  1260.      { "a" chr.to.int$ 'last.extra.num :=
  1261.        "" 'extra.label :=
  1262.        label 'last.label :=
  1263.     }
  1264.   if$
  1265. }
  1266.  
  1267. FUNCTION {reverse.pass}
  1268. { next.extra "b" =
  1269.     { "a" 'extra.label := }
  1270.      'skip$
  1271.   if$
  1272.   label extra.label * "}" * 'label :=   
  1273.   extra.label 'next.extra :=
  1274. }
  1275.  
  1276. EXECUTE {initialize.extra.label.stuff}
  1277.  
  1278. ITERATE {forward.pass}
  1279.  
  1280. REVERSE {reverse.pass}
  1281.  
  1282. FUNCTION {bib.sort.order}
  1283. { sort.label
  1284.   "    "
  1285.   *
  1286.   year field.or.null sortify
  1287.   *
  1288.   "    "
  1289.   *
  1290.   title field.or.null
  1291.   sort.format.title
  1292.   *
  1293.   #1 entry.max$ substring$
  1294.   'sort.key$ :=
  1295. }
  1296.  
  1297. ITERATE {bib.sort.order}
  1298.  
  1299. SORT             % by sort.label, year, title --- giving final bib. order.
  1300.  
  1301. FUNCTION {begin.bib}
  1302.  
  1303. { preamble$ empty$
  1304.     'skip$
  1305.     { preamble$ write$ newline$ }
  1306.   if$
  1307.   "\begin{thebibliography}{}" write$ newline$
  1308. %  "\addcontentsline{toc}{section}{Reference}" write$ newline$
  1309. %  "\baselineskip=14pt" write$ newline$
  1310. %  "\parskip=2pt" write$ newline$
  1311. }
  1312.  
  1313.  
  1314. EXECUTE {begin.bib}
  1315.  
  1316. EXECUTE {init.state.consts}
  1317.  
  1318. ITERATE {call.type$}
  1319.  
  1320. FUNCTION {end.bib}
  1321. { newline$
  1322.   "\end{thebibliography}" write$ newline$
  1323. }
  1324.  
  1325. EXECUTE {end.bib}
  1326.  
  1327.